home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1100 < prev    next >
Text File  |  1996-10-03  |  4KB  |  180 lines
  1. /ucrk .5 def        
  2. /ucrm .31 def        
  3. /ucry .48 def        
  4. /boostk 1.25 def    
  5. /cvt1{1 exch sub 3 1 roll}bdf
  6. /cvt2{0 max 3 1 roll}bdf
  7. /setrgbcolor{
  8. cvt1 cvt1 cvt1                        
  9. 3 copy min min                        
  10. ucrk sub 0 max                        
  11. 4 1 roll                            
  12. 3 {3 index sub 3 1 roll} repeat        
  13. 1 index ucry mul sub cvt2            
  14. 1 index ucrm mul sub cvt2            
  15. 3 1 roll                            
  16. 4 -1 roll boostk mul                
  17. setcmykcolor
  18. }bdf
  19. /_sethsbcolor/sethsbcolor load def
  20. /sethsbcolor{_sethsbcolor currentrgbcolor setrgbcolor}bdf
  21. /setcmybcolor{setcmykcolor}bdf
  22. /setcmykcoloroverprint{pop pop pop pop}bdf
  23. /findcmykcustomcolor{5 packedarray}bdf
  24. /setseparationgray{_setgray}bdf
  25. /inkoverprint {/ginkoverprint gget}bdf
  26. /objoverprint {/gobjoverprint gget}bdf
  27. /currentoverprint {/gobjoverprint gget /ginkoverprint gget or}bdf
  28. /setgobjoverprint{/gobjoverprint exch gput}bdf
  29. /setginkoverprint {/ginkoverprint exch gput}bdf
  30. /setoverprint{setgobjoverprint}bdf
  31. /setinkoverprint{setginkoverprint}bdf
  32. /getprocessoverprint{
  33. dup 0 ne        
  34. {
  35. exch spots exch get 5 get
  36. dup type /booleantype ne    
  37. {ge} {exch pop} ifelse        
  38. }
  39. {
  40. pop pop false                
  41. }
  42. ifelse
  43. }bdf
  44. /getcustomoverprint{
  45. 4 get        
  46. false        
  47. spots
  48. {                            
  49. dup 4 get 3 index eq    
  50. {
  51. 5 get false eq        
  52. {pop false}            
  53. {pop true}            
  54. ifelse
  55. }
  56. {pop}                    
  57. ifelse
  58. } forall
  59. exch pop
  60. }bdf
  61. /overprintcmyk{
  62. 4 copy
  63. 0 ne {1}{0}ifelse 4 1 roll
  64. 0 ne {1}{0}ifelse 4 1 roll
  65. 0 ne {1}{0}ifelse 4 1 roll
  66. 0 ne {1}{0}ifelse 4 1 roll
  67. add add add 1 eq
  68. {4 copy 3 -1 0{exch getprocessoverprint 4 1 roll}for or or or}
  69. {false}
  70. ifelse
  71. setinkoverprint
  72. }bdf
  73. /overprinthex{
  74. 6 copy
  75. 0 ne {1}{0}ifelse 6 1 roll
  76. 0 ne {1}{0}ifelse 6 1 roll
  77. 0 ne {1}{0}ifelse 6 1 roll
  78. 0 ne {1}{0}ifelse 6 1 roll
  79. 0 ne {1}{0}ifelse 6 1 roll
  80. 0 ne {1}{0}ifelse 6 1 roll
  81. add add add add add 1 eq
  82. {6 copy 5 -1 0{exch getprocessoverprint 6 1 roll}for or or or or or}
  83. {false}
  84. ifelse
  85. setinkoverprint
  86. }bdf
  87. /separationimage{_image}bdf
  88. /isonlycthreshold {
  89. false        
  90. 5 copy pop    
  91. 0 eq exch 0 eq and exch 0 eq and exch 0 ne and
  92. { spots 0 get 5 get type /booleantype ne {pop true} if} if
  93. } bdf
  94. /isonlymthreshold {
  95. false        
  96. 5 copy pop    
  97. 0 eq exch 0 eq and exch 0 ne and exch 0 eq and
  98. { spots 1 get 5 get type /booleantype ne {pop true} if} if
  99. } bdf
  100. /isonlyythreshold {
  101. false        
  102. 5 copy pop    
  103. 0 eq exch 0 ne and exch 0 eq and exch 0 eq and
  104. { spots 2 get 5 get type /booleantype ne {pop true} if} if
  105. } bdf
  106. /isonlykthreshold {
  107. false        
  108. 5 copy pop    
  109. 0 ne exch 0 eq and exch 0 eq and exch 0 eq and
  110. { spots 3 get 5 get type /booleantype ne {pop true} if} if
  111. } bdf
  112. /forcepaint false def
  113. /paintok{currentoverprint not /isnotwhite gget or forcepaint or}bdf
  114. /_stroke /stroke load def
  115. /_fill /fill load def
  116. /_eofill /eofill load def
  117. /_rectstroke /rectstroke load def
  118. /_rectfill /rectfill load def
  119. /_show /show load def
  120. /_ashow /ashow load def
  121. /_widthshow /widthshow load def
  122. /_awidthshow /awidthshow load def
  123. /_kshow /kshow load def
  124. /nullexec{matrix currentmatrix gsave nulldevice setmatrix
  125. /forcepaint true def exec /forcepaint false def
  126. currentpoint grestore moveto}bdf
  127. /execok{paintok{exec}{nullexec}ifelse}bdf
  128. /stroke{paintok{_stroke}{newpath}ifelse}bdf
  129. /fill{paintok{_fill}{newpath}ifelse}bdf
  130. /eofill{paintok{_eofill}{newpath}ifelse}bdf
  131. /rectstroke{paintok{_rectstroke}{pop pop pop pop}ifelse}bdf
  132. /rectfill{paintok{_rectfill}{pop pop pop pop}ifelse}bdf
  133. /show{{_show} execok}bdf
  134. /ashow{{_ashow} execok}bdf
  135. /widthshow{{_widthshow} execok}bdf
  136. /awidthshow{{_awidthshow} execok}bdf
  137. /kshow{{_kshow} execok}bdf
  138. /imagemask
  139. {
  140. paintok
  141. {
  142. _imagemask
  143. }
  144. {
  145. gsave nulldevice _imagemask grestore
  146. }
  147. ifelse
  148. }bdf
  149. /lfs4
  150. {
  151. _lfs4
  152. }bdf
  153. /rfs6{
  154. _rfs6
  155. }bdf
  156. /fas{
  157. currentoverprint not        
  158. {
  159. gsave
  160. fhspreadsize setlinewidth [] 0 setdash
  161. currentoverprint            
  162. true setoverprint stroke setoverprint
  163. grestore
  164. }
  165. if
  166. }bdf
  167. /sas{
  168. currentoverprint not        
  169. {
  170. gsave
  171. currentlinewidth fhspreadsize add setlinewidth
  172. currentoverprint            
  173. true setoverprint stroke setoverprint
  174. grestore
  175. }
  176. if
  177. }bdf
  178. /fhsetspreadsize{/fhspreadsize sepdef}ndf
  179. end        %.AltsysSepDict